{
        uram.pas
        
        Copyright 2008 Tomas Cruz Hernandez <tomas@tomas-laptop>
        
        This program is free software; you can redistribute it and/or modify
        it under the terms of the GNU General Public License as published by
        the Free Software Foundation; either version 2 of the License, or
        (at your option) any later version.
        
        This program is distributed in the hope that it will be useful,
        but WITHOUT ANY WARRANTY; without even the implied warranty of
        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        GNU General Public License for more details.
        
        You should have received a copy of the GNU General Public License
        along with this program; if not, write to the Free Software
        Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
        MA 02110-1301, USA.
}


UNIT uram;

INTERFACE
	Procedure retornar(direccion: byte; var retorno: byte);
	Procedure cambiar(direccion: byte; valor: byte);

IMPLEMENTATION
	var RAM: array[0..255] of byte; {Memoria Ram limitada a 256 bits 
	debido a que creo que no se necesitaran mas de ahi}
	
	Procedure retornar(direccion: byte; var retorno: byte);
		{Procedimiento para retornar el valor que hay en la direccion de
		memoria "direccion" a la variable "retorno"}
		BEGIN
			retorno := RAM[direccion];
		END;
		
	Procedure cambiar(direccion: byte; valor: byte);
		{Cambia el valor que hay en la direccion de memoria "direccion"
		por el valor "valor"}
		BEGIN
			RAM[direccion] := valor;
		END;
	
BEGIN

END.
